home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 4 / Digital_Talk_04_1993-12-10_Digital_Talk_de_Side_B.d64 / 7. hsm-crazy car (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  80 lines
  1. 10 poke53280,11:poke53281,0:poke646,13:print"[147]      ford prefect's highscoremake
  2. 20 [153]"  written 1993   public domain software"
  3. 30 [153]" openspiel : clrcrazy cars"
  4. 40 :  l$[178]"scores,p,r":s$[178]"scores,p,w"
  5. 50 :  [153]"             openandandandandandandandandandand"
  6. 60 :  [153]"cont             highscore:"
  7. 70 :  [153]"            open usrusrusrusrusrusrusrusrusrusr"
  8. 80 :
  9. 90 :  [159] 1,8,2,l$
  10. 100 : [161] #1, no$, no$
  11. 110 :   [129] a [178] 0 [164] 9
  12. 120 :       [129] b [178] 0 [164] 19
  13. 130 :         [161]#1,byte$
  14. 140 :         s[178][198](byte$)
  15. 150 :         [151] 49152[170]a[172]20[170]b,s
  16. 160 :         [139] s [179] 32 [167] s[178]s[170]64
  17. 170 :         hs$(a)[178]hs$(a)[170][199](s)
  18. 180 :       [130] b
  19. 190 :   [130] a
  20. 200 : [160] 1
  21. 210 :
  22. 220 : [153]"print #","name       ?punktesys"
  23. 230 : [129] l [178] 0 [164] 9
  24. 240 :    [153]l,hs$(l)
  25. 250 : [130]l
  26. 260 :
  27. 270 : [153]" conterklaerung der highscore :open"
  28. 280 : [153]" der buchstabe vor den punkten gibt"
  29. 290 : [153]" das jeweilige level an."
  30. 300 : [153]" a bedeutet dabei level 1, b level 2 "
  31. 310 : [153]" usw. hoechts zulaessiger wert ist z"
  32. 320 : [153]" (= level 26)."
  33. 330 : [153]"clr druecke eine taste !"
  34. 340 : [161] a$: [139] a$[178]"" [167] 340
  35. 350 : [153]"ononononononononon";
  36. 360 : [129]l [178] 0 [164] 8
  37. 370 :    [153] "                                      "
  38. 380 : [130]l
  39. 390 : [153]"ononononononononon";
  40. 400 : [153]"open welche nummer soll geaendert werden ?"
  41. 410 : [153]"    druecke 0-9 oder _ zum beenden"
  42. 420 : [161] a$: [139]a$[178]""[167]420
  43. 430 : [139] a$[178]"_" [167] [128]
  44. 440 : a[178][197](a$)
  45. 450 : [139] a[179]0 [176] a[177]9 [167] 420
  46. 460 :
  47. 470 : [153]" contmax. 11 zeichen fuer den namen,"
  48. 480 : [153]" 1 buchstabe fuer das level und"
  49. 490 : [153]" 8 ziffern fuer die score !open"
  50. 500 : [153]"  nametototototototo?scoretototoprint"
  51. 510 : [153]"  ";hs$(a)
  52. 520 : [133]"on";e$
  53. 530 : [139] [195](e$)[179]20[167][129]t[178][195](e$)[164]19:e$[178]e$[170][199](32):[130]t
  54. 540 : [139] [195](e$)[177]20[167] 520
  55. 550 : [153]" sys    aenderung wird gespeichert !!"
  56. 560 : [129] l [178] 0 [164] 19
  57. 570 :     s [178] [198]([202](e$,l[170]1,1))
  58. 580 :     [139] s [177] 64 [167] s [178] s[171]64
  59. 590 :     [151] 49152[170]a[172]20[170]l,s
  60. 600 : [130] l
  61. 610 :
  62. 620 : [159] 15,8,15,"s:scores":[160]15
  63. 630 :
  64. 640 : [159] 1,8,2,s$
  65. 650 : [152]1,[199](32);[199](19);
  66. 660 :    [129] l [178] 0 [164] 199
  67. 670 :       s[178][194](49152[170]l)
  68. 680 :       [152]1,[199](s);
  69. 690 :    [130] l
  70. 700 : [160] 1
  71. 710 :                           [138]
  72. 720 :
  73. 730 : [129]d prefect's highsc[176]emaker
  74. 740 : spiel : crazy cars  (w) 1993
  75. 750 :
  76. 760 : danny busch
  77. 770 : birkenallee 18
  78. 780 : 65549 limburg (germany)
  79. 790 : tel.: 06431[173]25866
  80.